home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / tform1 / unit1.pas < prev   
Pascal/Delphi Source File  |  1996-04-08  |  2KB  |  68 lines
  1. unit Unit1;
  2. (*--------------------------------------------------------------------*)
  3. (*      MAMAVISION Software Consult                                   *)
  4. (*--------------------------------------------------------------------*)
  5. (*      'Data' Formclass which is cloned.                             *)
  6. (*      Contains group of Dummy components which 'root' class needs   *)
  7. (*      or might need in the future.                                  *)
  8. (*      When IDE supports form inheritance the Dummy Controls can     *)
  9. (*      be deleted.                                                   *)
  10. (*                                                                    *)
  11. (*--------------------------------------------------------------------*)
  12. (*      Subclassing:                                                  *)
  13. (*          TForm --> TForm0 --> TForm1                                   *)
  14. (**********************************************************************)
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  19.   Forms, Dialogs, StdCtrls, RootForm, ExtCtrls, Buttons;
  20.  
  21.   { The group of Control Dummies is necessary ! For each Controlclass
  22.     which is loaded from TForm0's resource their must be a class member
  23.     in TForm1 otherwise RTF and resource not loaded }
  24. type
  25.   TForm1 = class(TForm0)
  26.     Label1: TLabel;
  27.     Button1: TButton;
  28.     Edit1: TEdit;
  29.     Dummy_Panel: TPanel;
  30.     Dummy_Speedbutton: TSpeedButton;
  31.     Dummy_Bevel: TBevel;
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
  34.       Shift: TShiftState; X, Y: Integer);
  35.     procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
  36.       Shift: TShiftState; X, Y: Integer);
  37.   private
  38.     { Private-Deklarationen }
  39.   public
  40.     { Public-Deklarationen }
  41.   end;
  42.  
  43. var
  44.   Form1: TForm1;
  45.  
  46. implementation
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TForm1.FormCreate(Sender: TObject);
  51. begin
  52.   LoadRes;
  53. end;
  54.  
  55. procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  56.   Shift: TShiftState; X, Y: Integer);
  57. begin
  58.   Statusbar.Caption := 'Button1(TForm1) activates Statusbar(TForm0)';
  59. end;
  60.  
  61. procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  62.   Shift: TShiftState; X, Y: Integer);
  63. begin
  64.      Statusbar.Caption := 'ready';
  65. end;
  66.  
  67. end.
  68.